program tsv2012_test_main;
  use tsv2012_test;
  implicit none;
  call dbg_info("-->tsv2012_test_main");
  call tsv2012_test_all();
end program
